home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / others / nonlin25.zip / CIRCLE.NLR < prev    next >
Text File  |  1993-06-23  |  544b  |  28 lines
  1. Title Fit circle to group of points
  2. Register            ! Please register your use
  3. Variable Xp            ! X coordinate of point
  4. Variable Yp            ! Y coordinate of point
  5. Parameter Xc            ! X position of circle center
  6. Parameter Yc            ! Y position of circle center
  7. Parameter R            ! Radius of circle
  8. Function sqrt((Xp-Xc)^2 + (Yp-Yc)^2) - R
  9. Data
  10. 10.7  14.7
  11. 13.2  12.4
  12. 15.7  14.4
  13. 16.0  11.0
  14. 14.9   8.9
  15. 16.6   8.3
  16. 13.4   6.1
  17. 12.0   3.6
  18.  9.2   5.1
  19.  6.2   4.6
  20.  5.0   7.0
  21.  5.0   8.2
  22.  3.6  10.0
  23.  5.0  10.2
  24.  3.6  11.8
  25.  5.0  14.8
  26.  7.4  14.6
  27.  9.4  16.5
  28.